perm filename RTTEST[S86,JMC] blob sn#816376 filedate 1986-05-01 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	rttest[s86,jmc]		Comparison RT and KL
C00003 ENDMK
CāŠ—;
rttest[s86,jmc]		Comparison RT and KL

(defun tak (x y z)
       (if (< x y)
	   z
	   (tak (tak x y (1- z))
		(tak y z (1- x))
		(tak z x (1- y)))))

(tak 12. 6. 18.)